home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / S-Sound and Music / (c)s1.d64 / bomb.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  449b  |  27 lines
  1. 10 REM   >>> BOMB SOUND EFFECT <<<
  2. 20 :
  3. 30 PRINT"[147] HIT ANY KEY FOR BOMB"
  4. 40 PRINT"   ( * TO END PGM )"
  5. 50 GET A$ : IF A$="" THEN 50
  6. 60 IF A$="*" THEN 90
  7. 70 GOSUB 1000 : REM SOUND SUBROUTINE
  8. 80 GOTO 30
  9. 90 FOR X=1TO 24: POKE 54272+X,0: NEXT
  10. 100 END
  11. 110 :
  12. 1000 REM   ** SOUND SUBROUTINE **
  13. 1010 :
  14. 1020 S=54272
  15. 1030 POKE S+24,7
  16. 1040 POKE S+5,12*16+0
  17. 1050 POKE S+6,15*16+10
  18. 1060 FOR X= 255 TO 100STEP -1
  19. 1070 POKE S+1,X
  20. 1080 POKE S+4,17
  21. 1090 FOR D=1 TO 10 : NEXT D
  22. 1100 NEXT X
  23. 1110 POKE S+24,15
  24. 1120 POKE S+1,15
  25. 1130 POKE S+4,128
  26. 1140 RETURN
  27.